home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / mvaders / frmabout.frm < prev    next >
Text File  |  1997-08-30  |  2KB  |  76 lines
  1. VERSION 2.00
  2. Begin Form frmAbout 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "MVaders - About the program."
  5.    ClientHeight    =   4455
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1485
  8.    ClientWidth     =   7365
  9.    Height          =   4860
  10.    Icon            =   FRMABOUT.FRX:0000
  11.    Left            =   1035
  12.    LinkTopic       =   "Form2"
  13.    ScaleHeight     =   4455
  14.    ScaleWidth      =   7365
  15.    Top             =   1140
  16.    Width           =   7485
  17.    Begin CommandButton cmdOk 
  18.       Caption         =   "&Ok"
  19.       Default         =   -1  'True
  20.       Height          =   435
  21.       Left            =   3060
  22.       TabIndex        =   1
  23.       Top             =   3900
  24.       Width           =   1155
  25.    End
  26.    Begin Label lblAbout 
  27.       Alignment       =   2  'Center
  28.       Caption         =   "MVaders"
  29.       Height          =   3495
  30.       Left            =   420
  31.       TabIndex        =   0
  32.       Top             =   240
  33.       Width           =   6435
  34.       WordWrap        =   -1  'True
  35.    End
  36. End
  37. Option Explicit
  38.  
  39. Sub cmdOk_Click ()
  40.  
  41. Unload frmAbout
  42.  
  43. End Sub
  44.  
  45. Sub Form_Activate ()
  46.  
  47. Dim sMsg As String
  48.  
  49. 'Build and display programming information
  50. sMsg = "MVaders"
  51. sMsg = sMsg + Chr$(10) + ""
  52. sMsg = sMsg + Chr$(10) + "Version: v1.0"
  53. sMsg = sMsg + Chr$(10) + "Date: August 1997"
  54. sMsg = sMsg + Chr$(10) + "Programmer: Mark Meany"
  55. sMsg = sMsg + Chr$(10) + "Language: Visual Basic v3"
  56. sMsg = sMsg + Chr$(10) + "Graphics: Ari Feldman, from SpriteLib"
  57. sMsg = sMsg + Chr$(10) + ""
  58. sMsg = sMsg + Chr$(10) + "The source code for this and others games along with"
  59. sMsg = sMsg + Chr$(10) + "tips and tutorials can be found on my web"
  60. sMsg = sMsg + Chr$(10) + "site:"
  61. sMsg = sMsg + Chr$(10) + ""
  62. sMsg = sMsg + Chr$(10) + "http://www.geocities.com/SiliconValley/Bay/9520"
  63. sMsg = sMsg + Chr$(10) + ""
  64. sMsg = sMsg + Chr$(10) + "Enjoy!"
  65. lblAbout = sMsg
  66.  
  67. End Sub
  68.  
  69. Sub Form_Load ()
  70.  
  71. 'Make sure we are central
  72. CenterForm Me
  73.  
  74. End Sub
  75.  
  76.